home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue59 / Arch / Sample / UnitFormMain.dfm / UnitFormMain.txt
Encoding:
Text File  |  2000-05-29  |  2.5 KB  |  115 lines
  1. inherited FormMain: TFormMain
  2.   Left = 471
  3.   Top = 278
  4.   AutoSize = True
  5.   BorderIcons = [biSystemMenu, biMinimize]
  6.   BorderStyle = bsSingle
  7.   Caption = 'Customer Orders'
  8.   ClientHeight = 48
  9.   ClientWidth = 462
  10.   Menu = MainMenu
  11.   OldCreateOrder = True
  12.   PixelsPerInch = 96
  13.   TextHeight = 13
  14.   object ToolBarMain: TToolBar [0]
  15.     Left = 0
  16.     Top = 0
  17.     Width = 462
  18.     Height = 48
  19.     AutoSize = True
  20.     BorderWidth = 2
  21.     ButtonHeight = 36
  22.     ButtonWidth = 51
  23.     Caption = 'ToolBarMain'
  24.     Images = ImageListBase
  25.     ParentShowHint = False
  26.     ShowCaptions = True
  27.     ShowHint = True
  28.     TabOrder = 0
  29.     object ToolButton5: TToolButton
  30.       Left = 0
  31.       Top = 2
  32.       Action = ActionSaveAll
  33.     end
  34.     object ToolButton1: TToolButton
  35.       Left = 51
  36.       Top = 2
  37.       Width = 8
  38.       Caption = 'ToolButton1'
  39.       ImageIndex = 6
  40.       Style = tbsSeparator
  41.     end
  42.     object ToolButton2: TToolButton
  43.       Left = 59
  44.       Top = 2
  45.       Action = ActionFindOrders
  46.     end
  47.     object ToolButton3: TToolButton
  48.       Left = 110
  49.       Top = 2
  50.       Action = ActionFindCustomer
  51.     end
  52.   end
  53.   object ActionList: TActionList [1]
  54.     Images = ImageListBase
  55.     Left = 338
  56.     Top = 65530
  57.     object ActionTerminate: TAction
  58.       Category = 'File'
  59.       Caption = 'E&xit'
  60.       Hint = 'Exit'
  61.       OnExecute = ActionTerminateExecute
  62.     end
  63.     object ActionSaveAll: TAction
  64.       Category = 'File'
  65.       Caption = 'Save All'
  66.       Hint = 'Sava all'
  67.       ImageIndex = 5
  68.       OnExecute = ActionSaveAllExecute
  69.       OnUpdate = ActionSaveAllUpdate
  70.     end
  71.     object ActionFindOrders: TAction
  72.       Category = 'Find'
  73.       Caption = 'Orders'
  74.       ImageIndex = 2
  75.       OnExecute = ActionFindOrdersExecute
  76.     end
  77.     object ActionFindCustomer: TAction
  78.       Category = 'Find'
  79.       Caption = 'Customer'
  80.       ImageIndex = 2
  81.       OnExecute = ActionFindCustomerExecute
  82.     end
  83.   end
  84.   object MainMenu: TMainMenu [2]
  85.     Images = ImageListBase
  86.     Left = 374
  87.     Top = 65526
  88.     object File1: TMenuItem
  89.       Caption = '&File'
  90.       object SaveAll1: TMenuItem
  91.         Action = ActionSaveAll
  92.       end
  93.       object N1: TMenuItem
  94.         Caption = '-'
  95.       end
  96.       object Exit1: TMenuItem
  97.         Action = ActionTerminate
  98.       end
  99.     end
  100.     object Find1: TMenuItem
  101.       Caption = 'F&ind'
  102.       object Orders1: TMenuItem
  103.         Action = ActionFindOrders
  104.       end
  105.       object Customer1: TMenuItem
  106.         Action = ActionFindCustomer
  107.       end
  108.     end
  109.   end
  110.   inherited ImageListBase: TImageList
  111.     Left = 232
  112.     Top = 4
  113.   end
  114. end
  115.